home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / CASH.SBD < prev    next >
Encoding:
Text File  |  1990-06-01  |  1.4 KB  |  25 lines
  1. Batch_ref      ;NUM             ;00000.                ;0  ;0  ;
  2. Batch_date     ;DAT CON         ;mmm dd,yy             ;1  ;0  ;>
  3. TODAY 
  4. Client         ;TXT VAL     IXD ;8                     ;2  ;0  ;>
  5. LOOKUP (Client.CASH,Customer_Ref.CLIENTS) ELSE REQUEST "Client reference not found","Select one of the following",20,,Client.CASH,60,Customer_Ref.CLIENTS,Client.CLIENTS,Location.CLIENTS
  6. Trans_date     ;DAT CON         ;mmm dd,yy             ;3  ;0  ;>
  7. Batch_date.CASH
  8. Trans_time     ;TIM CON         ;hh:mm am              ;4  ;0  ;>
  9. NOW 
  10. Trans_Type     ;TXT VAL         ;1                     ;5  ;0  ;>
  11. Trans_Type.CASH = "r" OR Trans_Type.CASH = "p"
  12. Trans_ref      ;NUM             ;0000.                 ;6  ;0  ;
  13. Trans_key      ;VNU CLC RDO IXU ;00000000.             ;7  ;0  ;>
  14. Batch_ref.CASH * 10000 + Trans_ref.CASH
  15. Cash_ref       ;TXT             ;12                    ;8  ;0  ;
  16. Amount         ;NUM             ;-9999999.00           ;9  ;0  ;
  17. Printed_yn     ;LOG             ;1                     ;10 ;0  ;
  18. Client_Net     ;VNU CLC RDO     ;-9999999.00           ;11 ;0  ;>
  19. LOOKUP (Client.CASH,Customer_Ref.CLIENTS) ? Net_Due.CLIENTS:Client_Net.CASH
  20. Trans_Desc     ;VTX CLC RDO     ;8                     ;12 ;0  ;>
  21. Trans_Type.CASH = "r" ? "Receipt":"Payment"
  22. Signed_Amt     ;VNU CLC RDO     ;-9999999.00           ;13 ;0  ;>
  23. Trans_Type.CASH = "p" ? Amount.CASH * - 1:Amount.CASH
  24.  
  25.